Những câu hỏi liên quan
Thái Thành
Xem chi tiết
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 12 2020 lúc 18:02

uses crt;

var tien:real;

begin

clrscr;

repeat

write('Nhap so tien:'); readln(tien);

until tien>0;

if tien>=100000 then writeln(tien*70/100:4:2)

else writeln(tien*90/10:4:2);

readln;

end.

Bình luận (1)
Nguyễn Phạm Như Trang
Xem chi tiết
Kiều Vũ Linh
18 tháng 12 2020 lúc 9:58

T = 100 nghìn thì không tính được số tiền phải trả ở cả 2 trường hợp đâu em!

Xem lại đề đi!

Bình luận (0)
phạm tường lam
Xem chi tiết
Phạm Ngọc chi
Xem chi tiết
LongNguyen
Xem chi tiết
Rhider
23 tháng 11 2021 lúc 10:25

program az;

uses Crt;

var n : real;

begin

clrscr;

Write('Nhap so tien thanh toan luc dau : '); readln(n);

If (n >= 100000) then n := (70*n)/100 else n := (90*n)/100;

Write('So tien can thanh toan la : ',n);

readln

end

Mình học từ hồi lớp 8 r

Bình luận (0)
Vũ Tuấn Nam
Xem chi tiết
LongNguyen
Xem chi tiết
Chanh Xanh
23 tháng 11 2021 lúc 9:54

uses crt;

var tien:real;

begin

clrscr;

repeat

write('Nhap so tien:'); readln(tien);

until tien>0;

if tien>=100000 then writeln(tien*70/100:4:2)

else writeln(tien*90/10:4:2);

readln;

end.

Bình luận (0)
Nguyễn Thị Trúc Phương
Xem chi tiết